home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / tex31 / texsrc.lzh / TEXSRC.LZH / tex9.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-28  |  30.1 KB  |  1,143 lines
  1. #define EXTERN extern
  2. #include "texd.h"
  3.  
  4. void flushmath ( ) 
  5. {flushmath_regmem 
  6.   flushnodelist ( mem [ curlist .headfield ] .hh .v.RH ) ; 
  7.   flushnodelist ( curlist .auxfield .cint ) ; 
  8.   mem [ curlist .headfield ] .hh .v.RH = 0 ; 
  9.   curlist .tailfield = curlist .headfield ; 
  10.   curlist .auxfield .cint = 0 ; 
  11. } 
  12. halfword zcleanbox ( p , s ) 
  13. halfword p ; 
  14. smallnumber s ; 
  15. {/* 40 */ register halfword Result; cleanbox_regmem 
  16.   halfword q  ; 
  17.   smallnumber savestyle  ; 
  18.   halfword x  ; 
  19.   halfword r  ; 
  20.   switch ( mem [ p ] .hh .v.RH ) 
  21.   {case 1 : 
  22.     {
  23.       curmlist = newnoad () ; 
  24.       mem [ curmlist + 1 ] = mem [ p ] ; 
  25.     } 
  26.     break ; 
  27.   case 2 : 
  28.     {
  29.       q = mem [ p ] .hh .v.LH ; 
  30.       goto lab40 ; 
  31.     } 
  32.     break ; 
  33.   case 3 : 
  34.     curmlist = mem [ p ] .hh .v.LH ; 
  35.     break ; 
  36.     default: 
  37.     {
  38.       q = newnullbox () ; 
  39.       goto lab40 ; 
  40.     } 
  41.     break ; 
  42.   } 
  43.   savestyle = curstyle ; 
  44.   curstyle = s ; 
  45.   mlistpenalties = false ; 
  46.   mlisttohlist () ; 
  47.   q = mem [ memtop - 3 ] .hh .v.RH ; 
  48.   curstyle = savestyle ; 
  49.   {
  50.     if ( curstyle < 4 ) 
  51.     cursize = 0 ; 
  52.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  53.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] .hh 
  54.     .v.RH ] ] .cint , 18 ) ; 
  55.   } 
  56.   lab40: if ( ( q >= himemmin ) || ( q == 0 ) ) 
  57.   x = hpack ( q , 0 , 1 ) ; 
  58.   else if ( ( mem [ q ] .hh .v.RH == 0 ) && ( mem [ q ] .hh.b0 <= 1 ) && ( mem 
  59.   [ q + 4 ] .cint == 0 ) ) 
  60.   x = q ; 
  61.   else x = hpack ( q , 0 , 1 ) ; 
  62.   q = mem [ x + 5 ] .hh .v.RH ; 
  63.   if ( ( q >= himemmin ) ) 
  64.   {
  65.     r = mem [ q ] .hh .v.RH ; 
  66.     if ( r != 0 ) 
  67.     if ( mem [ r ] .hh .v.RH == 0 ) 
  68.     if ( ! ( r >= himemmin ) ) 
  69.     if ( mem [ r ] .hh.b0 == 11 ) 
  70.     {
  71.       freenode ( r , 2 ) ; 
  72.       mem [ q ] .hh .v.RH = 0 ; 
  73.     } 
  74.   } 
  75.   Result = x ; 
  76.   return(Result) ; 
  77. } 
  78. void zfetch ( a ) 
  79. halfword a ; 
  80. {fetch_regmem 
  81.   curc = mem [ a ] .hh.b1 ; 
  82.   curf = eqtb [ 4835 + mem [ a ] .hh.b0 + cursize ] .hh .v.RH ; 
  83.   if ( curf == 0 ) 
  84.   {
  85.     {
  86.       if ( interaction == 3 ) 
  87.       wakeupterminal () ; 
  88.       printnl ( 262 ) ; 
  89.       print ( 335 ) ; 
  90.     } 
  91.     printsize ( cursize ) ; 
  92.     printchar ( 32 ) ; 
  93.     printint ( mem [ a ] .hh.b0 ) ; 
  94.     print ( 877 ) ; 
  95.     print ( curc ) ; 
  96.     printchar ( 41 ) ; 
  97.     {
  98.       helpptr = 4 ; 
  99.       helpline [ 3 ] = 878 ; 
  100.       helpline [ 2 ] = 879 ; 
  101.       helpline [ 1 ] = 880 ; 
  102.       helpline [ 0 ] = 881 ; 
  103.     } 
  104.     error () ; 
  105.     curi = nullcharacter ; 
  106.     mem [ a ] .hh .v.RH = 0 ; 
  107.   } 
  108.   else {
  109.       
  110.     if ( ( curc >= fontbc [ curf ] ) && ( curc <= fontec [ curf ] ) ) 
  111.     curi = fontinfo [ charbase [ curf ] + curc ] .qqqq ; 
  112.     else curi = nullcharacter ; 
  113.     if ( ! ( ( curi .b0 > 0 ) ) ) 
  114.     {
  115.       charwarning ( curf , curc ) ; 
  116.       mem [ a ] .hh .v.RH = 0 ; 
  117.     } 
  118.   } 
  119. } 
  120. void zmakeover ( q ) 
  121. halfword q ; 
  122. {makeover_regmem 
  123.   mem [ q + 1 ] .hh .v.LH = overbar ( cleanbox ( q + 1 , 2 * ( curstyle / 2 ) 
  124.   + 1 ) , 3 * fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] 
  125.   .cint , fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] 
  126.   .cint ) ; 
  127.   mem [ q + 1 ] .hh .v.RH = 2 ; 
  128. } 
  129. void zmakeunder ( q ) 
  130. halfword q ; 
  131. {makeunder_regmem 
  132.   halfword p, x, y  ; 
  133.   scaled delta  ; 
  134.   x = cleanbox ( q + 1 , curstyle ) ; 
  135.   p = newkern ( 3 * fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh 
  136.   .v.RH ] ] .cint ) ; 
  137.   mem [ x ] .hh .v.RH = p ; 
  138.   mem [ p ] .hh .v.RH = fractionrule ( fontinfo [ 8 + parambase [ eqtb [ 4838 
  139.   + cursize ] .hh .v.RH ] ] .cint ) ; 
  140.   y = vpackage ( x , 0 , 1 , 1073741823L ) ; 
  141.   delta = mem [ y + 3 ] .cint + mem [ y + 2 ] .cint + fontinfo [ 8 + parambase 
  142.   [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] .cint ; 
  143.   mem [ y + 3 ] .cint = mem [ x + 3 ] .cint ; 
  144.   mem [ y + 2 ] .cint = delta - mem [ y + 3 ] .cint ; 
  145.   mem [ q + 1 ] .hh .v.LH = y ; 
  146.   mem [ q + 1 ] .hh .v.RH = 2 ; 
  147. } 
  148. void zmakevcenter ( q ) 
  149. halfword q ; 
  150. {makevcenter_regmem 
  151.   halfword v  ; 
  152.   scaled delta  ; 
  153.   v = mem [ q + 1 ] .hh .v.LH ; 
  154.   if ( mem [ v ] .hh.b0 != 1 ) 
  155.   confusion ( 535 ) ; 
  156.   delta = mem [ v + 3 ] .cint + mem [ v + 2 ] .cint ; 
  157.   mem [ v + 3 ] .cint = fontinfo [ 22 + parambase [ eqtb [ 4837 + cursize ] 
  158.   .hh .v.RH ] ] .cint + half ( delta ) ; 
  159.   mem [ v + 2 ] .cint = delta - mem [ v + 3 ] .cint ; 
  160. } 
  161. void zmakeradical ( q ) 
  162. halfword q ; 
  163. {makeradical_regmem 
  164.   halfword x, y  ; 
  165.   scaled delta, clr  ; 
  166.   x = cleanbox ( q + 1 , 2 * ( curstyle / 2 ) + 1 ) ; 
  167.   if ( curstyle < 2 ) 
  168.   clr = fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] .cint 
  169.   + ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  170.   .cint ) / 4 ) ; 
  171.   else {
  172.       
  173.     clr = fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] 
  174.     .cint ; 
  175.     clr = clr + ( abs ( clr ) / 4 ) ; 
  176.   } 
  177.   y = vardelimiter ( q + 4 , cursize , mem [ x + 3 ] .cint + mem [ x + 2 ] 
  178.   .cint + clr + fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] 
  179.   ] .cint ) ; 
  180.   delta = mem [ y + 2 ] .cint - ( mem [ x + 3 ] .cint + mem [ x + 2 ] .cint + 
  181.   clr ) ; 
  182.   if ( delta > 0 ) 
  183.   clr = clr + half ( delta ) ; 
  184.   mem [ y + 4 ] .cint = - (integer) ( mem [ x + 3 ] .cint + clr ) ; 
  185.   mem [ y ] .hh .v.RH = overbar ( x , clr , mem [ y + 3 ] .cint ) ; 
  186.   mem [ q + 1 ] .hh .v.LH = hpack ( y , 0 , 1 ) ; 
  187.   mem [ q + 1 ] .hh .v.RH = 2 ; 
  188. } 
  189. void zmakemathaccent ( q ) 
  190. halfword q ; 
  191. {/* 30 31 */ makemathaccent_regmem 
  192.   halfword p, x, y  ; 
  193.   integer a  ; 
  194.   quarterword c  ; 
  195.   internalfontnumber f  ; 
  196.   fourquarters i  ; 
  197.   scaled s  ; 
  198.   scaled h  ; 
  199.   scaled delta  ; 
  200.   scaled w  ; 
  201.   fetch ( q + 4 ) ; 
  202.   if ( ( curi .b0 > 0 ) ) 
  203.   {
  204.     i = curi ; 
  205.     c = curc ; 
  206.     f = curf ; 
  207.     s = 0 ; 
  208.     if ( mem [ q + 1 ] .hh .v.RH == 1 ) 
  209.     {
  210.       fetch ( q + 1 ) ; 
  211.       if ( ( ( curi .b2 ) % 4 ) == 1 ) 
  212.       {
  213.     a = ligkernbase [ curf ] + curi .b3 ; 
  214.     curi = fontinfo [ a ] .qqqq ; 
  215.     if ( curi .b0 > 128 ) 
  216.     {
  217.       a = ligkernbase [ curf ] + 256 * curi .b2 + curi .b3 + 32768L - 256 
  218.       * ( 128 ) ; 
  219.       curi = fontinfo [ a ] .qqqq ; 
  220.     } 
  221.     while ( true ) {
  222.         
  223.       if ( curi .b1 == skewchar [ curf ] ) 
  224.       {
  225.         if ( curi .b2 >= 128 ) 
  226.         if ( curi .b0 <= 128 ) 
  227.         s = fontinfo [ kernbase [ curf ] + 256 * curi .b2 + curi .b3 ] 
  228.         .cint ; 
  229.         goto lab31 ; 
  230.       } 
  231.       if ( curi .b0 >= 128 ) 
  232.       goto lab31 ; 
  233.       a = a + curi .b0 + 1 ; 
  234.       curi = fontinfo [ a ] .qqqq ; 
  235.     } 
  236.       } 
  237.     } 
  238.     lab31: ; 
  239.     x = cleanbox ( q + 1 , 2 * ( curstyle / 2 ) + 1 ) ; 
  240.     w = mem [ x + 1 ] .cint ; 
  241.     h = mem [ x + 3 ] .cint ; 
  242.     while ( true ) {
  243.     
  244.       if ( ( ( i .b2 ) % 4 ) != 2 ) 
  245.       goto lab30 ; 
  246.       y = i .b3 ; 
  247.       i = fontinfo [ charbase [ f ] + y ] .qqqq ; 
  248.       if ( ! ( i .b0 > 0 ) ) 
  249.       goto lab30 ; 
  250.       if ( fontinfo [ widthbase [ f ] + i .b0 ] .cint > w ) 
  251.       goto lab30 ; 
  252.       c = y ; 
  253.     } 
  254.     lab30: ; 
  255.     if ( h < fontinfo [ 5 + parambase [ f ] ] .cint ) 
  256.     delta = h ; 
  257.     else delta = fontinfo [ 5 + parambase [ f ] ] .cint ; 
  258.     if ( ( mem [ q + 2 ] .hh .v.RH != 0 ) || ( mem [ q + 3 ] .hh .v.RH != 0 ) 
  259.     ) 
  260.     if ( mem [ q + 1 ] .hh .v.RH == 1 ) 
  261.     {
  262.       flushnodelist ( x ) ; 
  263.       x = newnoad () ; 
  264.       mem [ x + 1 ] = mem [ q + 1 ] ; 
  265.       mem [ x + 2 ] = mem [ q + 2 ] ; 
  266.       mem [ x + 3 ] = mem [ q + 3 ] ; 
  267.       mem [ q + 2 ] .hh = emptyfield ; 
  268.       mem [ q + 3 ] .hh = emptyfield ; 
  269.       mem [ q + 1 ] .hh .v.RH = 3 ; 
  270.       mem [ q + 1 ] .hh .v.LH = x ; 
  271.       x = cleanbox ( q + 1 , curstyle ) ; 
  272.       delta = delta + mem [ x + 3 ] .cint - h ; 
  273.       h = mem [ x + 3 ] .cint ; 
  274.     } 
  275.     y = charbox ( f , c ) ; 
  276.     mem [ y + 4 ] .cint = s + half ( w - mem [ y + 1 ] .cint ) ; 
  277.     mem [ y + 1 ] .cint = 0 ; 
  278.     p = newkern ( - (integer) delta ) ; 
  279.     mem [ p ] .hh .v.RH = x ; 
  280.     mem [ y ] .hh .v.RH = p ; 
  281.     y = vpackage ( y , 0 , 1 , 1073741823L ) ; 
  282.     mem [ y + 1 ] .cint = mem [ x + 1 ] .cint ; 
  283.     if ( mem [ y + 3 ] .cint < h ) 
  284.     {
  285.       p = newkern ( h - mem [ y + 3 ] .cint ) ; 
  286.       mem [ p ] .hh .v.RH = mem [ y + 5 ] .hh .v.RH ; 
  287.       mem [ y + 5 ] .hh .v.RH = p ; 
  288.       mem [ y + 3 ] .cint = h ; 
  289.     } 
  290.     mem [ q + 1 ] .hh .v.LH = y ; 
  291.     mem [ q + 1 ] .hh .v.RH = 2 ; 
  292.   } 
  293. } 
  294. void zmakefraction ( q ) 
  295. halfword q ; 
  296. {makefraction_regmem 
  297.   halfword p, v, x, y, z  ; 
  298.   scaled delta, delta1, delta2, shiftup, shiftdown, clr  ; 
  299.   if ( mem [ q + 1 ] .cint == 1073741824L ) 
  300.   mem [ q + 1 ] .cint = fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh 
  301.   .v.RH ] ] .cint ; 
  302.   x = cleanbox ( q + 2 , curstyle + 2 - 2 * ( curstyle / 6 ) ) ; 
  303.   z = cleanbox ( q + 3 , 2 * ( curstyle / 2 ) + 3 - 2 * ( curstyle / 6 ) ) ; 
  304.   if ( mem [ x + 1 ] .cint < mem [ z + 1 ] .cint ) 
  305.   x = rebox ( x , mem [ z + 1 ] .cint ) ; 
  306.   else z = rebox ( z , mem [ x + 1 ] .cint ) ; 
  307.   if ( curstyle < 2 ) 
  308.   {
  309.     shiftup = fontinfo [ 8 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  310.     .cint ; 
  311.     shiftdown = fontinfo [ 11 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH 
  312.     ] ] .cint ; 
  313.   } 
  314.   else {
  315.       
  316.     shiftdown = fontinfo [ 12 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH 
  317.     ] ] .cint ; 
  318.     if ( mem [ q + 1 ] .cint != 0 ) 
  319.     shiftup = fontinfo [ 9 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  320.     .cint ; 
  321.     else shiftup = fontinfo [ 10 + parambase [ eqtb [ 4837 + cursize ] .hh 
  322.     .v.RH ] ] .cint ; 
  323.   } 
  324.   if ( mem [ q + 1 ] .cint == 0 ) 
  325.   {
  326.     if ( curstyle < 2 ) 
  327.     clr = 7 * fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] ] 
  328.     .cint ; 
  329.     else clr = 3 * fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh 
  330.     .v.RH ] ] .cint ; 
  331.     delta = half ( clr - ( ( shiftup - mem [ x + 2 ] .cint ) - ( mem [ z + 3 ] 
  332.     .cint - shiftdown ) ) ) ; 
  333.     if ( delta > 0 ) 
  334.     {
  335.       shiftup = shiftup + delta ; 
  336.       shiftdown = shiftdown + delta ; 
  337.     } 
  338.   } 
  339.   else {
  340.       
  341.     if ( curstyle < 2 ) 
  342.     clr = 3 * mem [ q + 1 ] .cint ; 
  343.     else clr = mem [ q + 1 ] .cint ; 
  344.     delta = half ( mem [ q + 1 ] .cint ) ; 
  345.     delta1 = clr - ( ( shiftup - mem [ x + 2 ] .cint ) - ( fontinfo [ 22 + 
  346.     parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] .cint + delta ) ) ; 
  347.     delta2 = clr - ( ( fontinfo [ 22 + parambase [ eqtb [ 4837 + cursize ] .hh 
  348.     .v.RH ] ] .cint - delta ) - ( mem [ z + 3 ] .cint - shiftdown ) ) ; 
  349.     if ( delta1 > 0 ) 
  350.     shiftup = shiftup + delta1 ; 
  351.     if ( delta2 > 0 ) 
  352.     shiftdown = shiftdown + delta2 ; 
  353.   } 
  354.   v = newnullbox () ; 
  355.   mem [ v ] .hh.b0 = 1 ; 
  356.   mem [ v + 3 ] .cint = shiftup + mem [ x + 3 ] .cint ; 
  357.   mem [ v + 2 ] .cint = mem [ z + 2 ] .cint + shiftdown ; 
  358.   mem [ v + 1 ] .cint = mem [ x + 1 ] .cint ; 
  359.   if ( mem [ q + 1 ] .cint == 0 ) 
  360.   {
  361.     p = newkern ( ( shiftup - mem [ x + 2 ] .cint ) - ( mem [ z + 3 ] .cint - 
  362.     shiftdown ) ) ; 
  363.     mem [ p ] .hh .v.RH = z ; 
  364.   } 
  365.   else {
  366.       
  367.     y = fractionrule ( mem [ q + 1 ] .cint ) ; 
  368.     p = newkern ( ( fontinfo [ 22 + parambase [ eqtb [ 4837 + cursize ] .hh 
  369.     .v.RH ] ] .cint - delta ) - ( mem [ z + 3 ] .cint - shiftdown ) ) ; 
  370.     mem [ y ] .hh .v.RH = p ; 
  371.     mem [ p ] .hh .v.RH = z ; 
  372.     p = newkern ( ( shiftup - mem [ x + 2 ] .cint ) - ( fontinfo [ 22 + 
  373.     parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] .cint + delta ) ) ; 
  374.     mem [ p ] .hh .v.RH = y ; 
  375.   } 
  376.   mem [ x ] .hh .v.RH = p ; 
  377.   mem [ v + 5 ] .hh .v.RH = x ; 
  378.   if ( curstyle < 2 ) 
  379.   delta = fontinfo [ 20 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  380.   .cint ; 
  381.   else delta = fontinfo [ 21 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] 
  382.   ] .cint ; 
  383.   x = vardelimiter ( q + 4 , cursize , delta ) ; 
  384.   mem [ x ] .hh .v.RH = v ; 
  385.   z = vardelimiter ( q + 5 , cursize , delta ) ; 
  386.   mem [ v ] .hh .v.RH = z ; 
  387.   mem [ q + 1 ] .cint = hpack ( x , 0 , 1 ) ; 
  388. } 
  389. scaled zmakeop ( q ) 
  390. halfword q ; 
  391. {register scaled Result; makeop_regmem 
  392.   scaled delta  ; 
  393.   halfword p, v, x, y, z  ; 
  394.   quarterword c  ; 
  395.   fourquarters i  ; 
  396.   scaled shiftup, shiftdown  ; 
  397.   if ( ( mem [ q ] .hh.b1 == 0 ) && ( curstyle < 2 ) ) 
  398.   mem [ q ] .hh.b1 = 1 ; 
  399.   if ( mem [ q + 1 ] .hh .v.RH == 1 ) 
  400.   {
  401.     fetch ( q + 1 ) ; 
  402.     if ( ( curstyle < 2 ) && ( ( ( curi .b2 ) % 4 ) == 2 ) ) 
  403.     {
  404.       c = curi .b3 ; 
  405.       i = fontinfo [ charbase [ curf ] + c ] .qqqq ; 
  406.       if ( ( i .b0 > 0 ) ) 
  407.       {
  408.     curc = c ; 
  409.     curi = i ; 
  410.     mem [ q + 1 ] .hh.b1 = c ; 
  411.       } 
  412.     } 
  413.     delta = fontinfo [ italicbase [ curf ] + ( curi .b2 ) / 4 ] .cint ; 
  414.     x = cleanbox ( q + 1 , curstyle ) ; 
  415.     if ( ( mem [ q + 3 ] .hh .v.RH != 0 ) && ( mem [ q ] .hh.b1 != 1 ) ) 
  416.     mem [ x + 1 ] .cint = mem [ x + 1 ] .cint - delta ; 
  417.     mem [ x + 4 ] .cint = half ( mem [ x + 3 ] .cint - mem [ x + 2 ] .cint ) - 
  418.     fontinfo [ 22 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] .cint ; 
  419.     mem [ q + 1 ] .hh .v.RH = 2 ; 
  420.     mem [ q + 1 ] .hh .v.LH = x ; 
  421.   } 
  422.   else delta = 0 ; 
  423.   if ( mem [ q ] .hh.b1 == 1 ) 
  424.   {
  425.     x = cleanbox ( q + 2 , 2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ) ) ; 
  426.     y = cleanbox ( q + 1 , curstyle ) ; 
  427.     z = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  428.     v = newnullbox () ; 
  429.     mem [ v ] .hh.b0 = 1 ; 
  430.     mem [ v + 1 ] .cint = mem [ y + 1 ] .cint ; 
  431.     if ( mem [ x + 1 ] .cint > mem [ v + 1 ] .cint ) 
  432.     mem [ v + 1 ] .cint = mem [ x + 1 ] .cint ; 
  433.     if ( mem [ z + 1 ] .cint > mem [ v + 1 ] .cint ) 
  434.     mem [ v + 1 ] .cint = mem [ z + 1 ] .cint ; 
  435.     x = rebox ( x , mem [ v + 1 ] .cint ) ; 
  436.     y = rebox ( y , mem [ v + 1 ] .cint ) ; 
  437.     z = rebox ( z , mem [ v + 1 ] .cint ) ; 
  438.     mem [ x + 4 ] .cint = half ( delta ) ; 
  439.     mem [ z + 4 ] .cint = - (integer) mem [ x + 4 ] .cint ; 
  440.     mem [ v + 3 ] .cint = mem [ y + 3 ] .cint ; 
  441.     mem [ v + 2 ] .cint = mem [ y + 2 ] .cint ; 
  442.     if ( mem [ q + 2 ] .hh .v.RH == 0 ) 
  443.     {
  444.       freenode ( x , 7 ) ; 
  445.       mem [ v + 5 ] .hh .v.RH = y ; 
  446.     } 
  447.     else {
  448.     
  449.       shiftup = fontinfo [ 11 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH 
  450.       ] ] .cint - mem [ x + 2 ] .cint ; 
  451.       if ( shiftup < fontinfo [ 9 + parambase [ eqtb [ 4838 + cursize ] .hh 
  452.       .v.RH ] ] .cint ) 
  453.       shiftup = fontinfo [ 9 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] 
  454.       ] .cint ; 
  455.       p = newkern ( shiftup ) ; 
  456.       mem [ p ] .hh .v.RH = y ; 
  457.       mem [ x ] .hh .v.RH = p ; 
  458.       p = newkern ( fontinfo [ 13 + parambase [ eqtb [ 4838 + cursize ] .hh 
  459.       .v.RH ] ] .cint ) ; 
  460.       mem [ p ] .hh .v.RH = x ; 
  461.       mem [ v + 5 ] .hh .v.RH = p ; 
  462.       mem [ v + 3 ] .cint = mem [ v + 3 ] .cint + fontinfo [ 13 + parambase [ 
  463.       eqtb [ 4838 + cursize ] .hh .v.RH ] ] .cint + mem [ x + 3 ] .cint + mem 
  464.       [ x + 2 ] .cint + shiftup ; 
  465.     } 
  466.     if ( mem [ q + 3 ] .hh .v.RH == 0 ) 
  467.     freenode ( z , 7 ) ; 
  468.     else {
  469.     
  470.       shiftdown = fontinfo [ 12 + parambase [ eqtb [ 4838 + cursize ] .hh 
  471.       .v.RH ] ] .cint - mem [ z + 3 ] .cint ; 
  472.       if ( shiftdown < fontinfo [ 10 + parambase [ eqtb [ 4838 + cursize ] .hh 
  473.       .v.RH ] ] .cint ) 
  474.       shiftdown = fontinfo [ 10 + parambase [ eqtb [ 4838 + cursize ] .hh 
  475.       .v.RH ] ] .cint ; 
  476.       p = newkern ( shiftdown ) ; 
  477.       mem [ y ] .hh .v.RH = p ; 
  478.       mem [ p ] .hh .v.RH = z ; 
  479.       p = newkern ( fontinfo [ 13 + parambase [ eqtb [ 4838 + cursize ] .hh 
  480.       .v.RH ] ] .cint ) ; 
  481.       mem [ z ] .hh .v.RH = p ; 
  482.       mem [ v + 2 ] .cint = mem [ v + 2 ] .cint + fontinfo [ 13 + parambase [ 
  483.       eqtb [ 4838 + cursize ] .hh .v.RH ] ] .cint + mem [ z + 3 ] .cint + mem 
  484.       [ z + 2 ] .cint + shiftdown ; 
  485.     } 
  486.     mem [ q + 1 ] .cint = v ; 
  487.   } 
  488.   Result = delta ; 
  489.   return(Result) ; 
  490. } 
  491. void zmakeord ( q ) 
  492. halfword q ; 
  493. {/* 20 10 */ makeord_regmem 
  494.   integer a  ; 
  495.   halfword p, r  ; 
  496.   lab20: if ( mem [ q + 3 ] .hh .v.RH == 0 ) 
  497.   if ( mem [ q + 2 ] .hh .v.RH == 0 ) 
  498.   if ( mem [ q + 1 ] .hh .v.RH == 1 ) 
  499.   {
  500.     p = mem [ q ] .hh .v.RH ; 
  501.     if ( p != 0 ) 
  502.     if ( ( mem [ p ] .hh.b0 >= 16 ) && ( mem [ p ] .hh.b0 <= 22 ) ) 
  503.     if ( mem [ p + 1 ] .hh .v.RH == 1 ) 
  504.     if ( mem [ p + 1 ] .hh.b0 == mem [ q + 1 ] .hh.b0 ) 
  505.     {
  506.       mem [ q + 1 ] .hh .v.RH = 4 ; 
  507.       fetch ( q + 1 ) ; 
  508.       if ( ( ( curi .b2 ) % 4 ) == 1 ) 
  509.       {
  510.     a = ligkernbase [ curf ] + curi .b3 ; 
  511.     curc = mem [ p + 1 ] .hh.b1 ; 
  512.     curi = fontinfo [ a ] .qqqq ; 
  513.     if ( curi .b0 > 128 ) 
  514.     {
  515.       a = ligkernbase [ curf ] + 256 * curi .b2 + curi .b3 + 32768L - 256 
  516.       * ( 128 ) ; 
  517.       curi = fontinfo [ a ] .qqqq ; 
  518.     } 
  519.     while ( true ) {
  520.         
  521.       if ( curi .b1 == curc ) 
  522.       if ( curi .b0 <= 128 ) 
  523.       if ( curi .b2 >= 128 ) 
  524.       {
  525.         p = newkern ( fontinfo [ kernbase [ curf ] + 256 * curi .b2 + curi 
  526.         .b3 ] .cint ) ; 
  527.         mem [ p ] .hh .v.RH = mem [ q ] .hh .v.RH ; 
  528.         mem [ q ] .hh .v.RH = p ; 
  529.         return ; 
  530.       } 
  531.       else {
  532.           
  533.         {
  534.           if ( interrupt != 0 ) 
  535.           pauseforinstructions () ; 
  536.         } 
  537.         switch ( curi .b2 ) 
  538.         {case 1 : 
  539.         case 5 : 
  540.           mem [ q + 1 ] .hh.b1 = curi .b3 ; 
  541.           break ; 
  542.         case 2 : 
  543.         case 6 : 
  544.           mem [ p + 1 ] .hh.b1 = curi .b3 ; 
  545.           break ; 
  546.         case 3 : 
  547.         case 7 : 
  548.         case 11 : 
  549.           {
  550.         r = newnoad () ; 
  551.         mem [ r + 1 ] .hh.b1 = curi .b3 ; 
  552.         mem [ r + 1 ] .hh.b0 = mem [ q + 1 ] .hh.b0 ; 
  553.         mem [ q ] .hh .v.RH = r ; 
  554.         mem [ r ] .hh .v.RH = p ; 
  555.         if ( curi .b2 < 11 ) 
  556.         mem [ r + 1 ] .hh .v.RH = 1 ; 
  557.         else mem [ r + 1 ] .hh .v.RH = 4 ; 
  558.           } 
  559.           break ; 
  560.           default: 
  561.           {
  562.         mem [ q ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  563.         mem [ q + 1 ] .hh.b1 = curi .b3 ; 
  564.         mem [ q + 3 ] = mem [ p + 3 ] ; 
  565.         mem [ q + 2 ] = mem [ p + 2 ] ; 
  566.         freenode ( p , 4 ) ; 
  567.           } 
  568.           break ; 
  569.         } 
  570.         if ( curi .b2 > 3 ) 
  571.         return ; 
  572.         mem [ q + 1 ] .hh .v.RH = 1 ; 
  573.         goto lab20 ; 
  574.       } 
  575.       if ( curi .b0 >= 128 ) 
  576.       return ; 
  577.       a = a + curi .b0 + 1 ; 
  578.       curi = fontinfo [ a ] .qqqq ; 
  579.     } 
  580.       } 
  581.     } 
  582.   } 
  583. } 
  584. void zmakescripts ( q , delta ) 
  585. halfword q ; 
  586. scaled delta ; 
  587. {makescripts_regmem 
  588.   halfword p, x, y, z  ; 
  589.   scaled shiftup, shiftdown, clr  ; 
  590.   smallnumber t  ; 
  591.   p = mem [ q + 1 ] .cint ; 
  592.   if ( ( p >= himemmin ) ) 
  593.   {
  594.     shiftup = 0 ; 
  595.     shiftdown = 0 ; 
  596.   } 
  597.   else {
  598.       
  599.     z = hpack ( p , 0 , 1 ) ; 
  600.     if ( curstyle < 4 ) 
  601.     t = 16 ; 
  602.     else t = 32 ; 
  603.     shiftup = mem [ z + 3 ] .cint - fontinfo [ 18 + parambase [ eqtb [ 4837 + 
  604.     t ] .hh .v.RH ] ] .cint ; 
  605.     shiftdown = mem [ z + 2 ] .cint + fontinfo [ 19 + parambase [ eqtb [ 4837 
  606.     + t ] .hh .v.RH ] ] .cint ; 
  607.     freenode ( z , 7 ) ; 
  608.   } 
  609.   if ( mem [ q + 2 ] .hh .v.RH == 0 ) 
  610.   {
  611.     x = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  612.     mem [ x + 1 ] .cint = mem [ x + 1 ] .cint + eqtb [ 6742 ] .cint ; 
  613.     if ( shiftdown < fontinfo [ 16 + parambase [ eqtb [ 4837 + cursize ] .hh 
  614.     .v.RH ] ] .cint ) 
  615.     shiftdown = fontinfo [ 16 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH 
  616.     ] ] .cint ; 
  617.     clr = mem [ x + 3 ] .cint - ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4837 
  618.     + cursize ] .hh .v.RH ] ] .cint * 4 ) / 5 ) ; 
  619.     if ( shiftdown < clr ) 
  620.     shiftdown = clr ; 
  621.     mem [ x + 4 ] .cint = shiftdown ; 
  622.   } 
  623.   else {
  624.       
  625.     {
  626.       x = cleanbox ( q + 2 , 2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ) ) ; 
  627.       mem [ x + 1 ] .cint = mem [ x + 1 ] .cint + eqtb [ 6742 ] .cint ; 
  628.       if ( odd ( curstyle ) ) 
  629.       clr = fontinfo [ 15 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  630.       .cint ; 
  631.       else if ( curstyle < 2 ) 
  632.       clr = fontinfo [ 13 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH ] ] 
  633.       .cint ; 
  634.       else clr = fontinfo [ 14 + parambase [ eqtb [ 4837 + cursize ] .hh .v.RH 
  635.       ] ] .cint ; 
  636.       if ( shiftup < clr ) 
  637.       shiftup = clr ; 
  638.       clr = mem [ x + 2 ] .cint + ( abs ( fontinfo [ 5 + parambase [ eqtb [ 
  639.       4837 + cursize ] .hh .v.RH ] ] .cint ) / 4 ) ; 
  640.       if ( shiftup < clr ) 
  641.       shiftup = clr ; 
  642.     } 
  643.     if ( mem [ q + 3 ] .hh .v.RH == 0 ) 
  644.     mem [ x + 4 ] .cint = - (integer) shiftup ; 
  645.     else {
  646.     
  647.       y = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  648.       mem [ y + 1 ] .cint = mem [ y + 1 ] .cint + eqtb [ 6742 ] .cint ; 
  649.       if ( shiftdown < fontinfo [ 17 + parambase [ eqtb [ 4837 + cursize ] .hh 
  650.       .v.RH ] ] .cint ) 
  651.       shiftdown = fontinfo [ 17 + parambase [ eqtb [ 4837 + cursize ] .hh 
  652.       .v.RH ] ] .cint ; 
  653.       clr = 4 * fontinfo [ 8 + parambase [ eqtb [ 4838 + cursize ] .hh .v.RH ] 
  654.       ] .cint - ( ( shiftup - mem [ x + 2 ] .cint ) - ( mem [ y + 3 ] .cint - 
  655.       shiftdown ) ) ; 
  656.       if ( clr > 0 ) 
  657.       {
  658.     shiftdown = shiftdown + clr ; 
  659.     clr = ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4837 + cursize ] .hh 
  660.     .v.RH ] ] .cint * 4 ) / 5 ) - ( shiftup - mem [ x + 2 ] .cint ) ; 
  661.     if ( clr > 0 ) 
  662.     {
  663.       shiftup = shiftup + clr ; 
  664.       shiftdown = shiftdown - clr ; 
  665.     } 
  666.       } 
  667.       mem [ x + 4 ] .cint = delta ; 
  668.       p = newkern ( ( shiftup - mem [ x + 2 ] .cint ) - ( mem [ y + 3 ] .cint 
  669.       - shiftdown ) ) ; 
  670.       mem [ x ] .hh .v.RH = p ; 
  671.       mem [ p ] .hh .v.RH = y ; 
  672.       x = vpackage ( x , 0 , 1 , 1073741823L ) ; 
  673.       mem [ x + 4 ] .cint = shiftdown ; 
  674.     } 
  675.   } 
  676.   if ( mem [ q + 1 ] .cint == 0 ) 
  677.   mem [ q + 1 ] .cint = x ; 
  678.   else {
  679.       
  680.     p = mem [ q + 1 ] .cint ; 
  681.     while ( mem [ p ] .hh .v.RH != 0 ) p = mem [ p ] .hh .v.RH ; 
  682.     mem [ p ] .hh .v.RH = x ; 
  683.   } 
  684. } 
  685. smallnumber zmakeleftright ( q , style , maxd , maxh ) 
  686. halfword q ; 
  687. smallnumber style ; 
  688. scaled maxd ; 
  689. scaled maxh ; 
  690. {register smallnumber Result; makeleftright_regmem 
  691.   scaled delta, delta1, delta2  ; 
  692.   if ( style < 4 ) 
  693.   cursize = 0 ; 
  694.   else cursize = 16 * ( ( style - 2 ) / 2 ) ; 
  695.   delta2 = maxd + fontinfo [ 22 + parambase [ eqtb [ 4837 + cursize ] .hh 
  696.   .v.RH ] ] .cint ; 
  697.   delta1 = maxh + maxd - delta2 ; 
  698.   if ( delta2 > delta1 ) 
  699.   delta1 = delta2 ; 
  700.   delta = ( delta1 / 500 ) * eqtb [ 6181 ] .cint ; 
  701.   delta2 = delta1 + delta1 - eqtb [ 6740 ] .cint ; 
  702.   if ( delta < delta2 ) 
  703.   delta = delta2 ; 
  704.   mem [ q + 1 ] .cint = vardelimiter ( q + 1 , cursize , delta ) ; 
  705.   Result = mem [ q ] .hh.b0 - ( 10 ) ; 
  706.   return(Result) ; 
  707. } 
  708. void mlisttohlist ( ) 
  709. {/* 21 82 80 81 83 30 */ mlisttohlist_regmem 
  710.   halfword mlist  ; 
  711.   boolean penalties  ; 
  712.   smallnumber style  ; 
  713.   smallnumber savestyle  ; 
  714.   halfword q  ; 
  715.   halfword r  ; 
  716.   smallnumber rtype  ; 
  717.   smallnumber t  ; 
  718.   halfword p, x, y, z  ; 
  719.   integer pen  ; 
  720.   smallnumber s  ; 
  721.   scaled maxh, maxd  ; 
  722.   scaled delta  ; 
  723.   mlist = curmlist ; 
  724.   penalties = mlistpenalties ; 
  725.   style = curstyle ; 
  726.   q = mlist ; 
  727.   r = 0 ; 
  728.   rtype = 17 ; 
  729.   maxh = 0 ; 
  730.   maxd = 0 ; 
  731.   {
  732.     if ( curstyle < 4 ) 
  733.     cursize = 0 ; 
  734.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  735.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] .hh 
  736.     .v.RH ] ] .cint , 18 ) ; 
  737.   } 
  738.   while ( q != 0 ) {
  739.       
  740.     lab21: delta = 0 ; 
  741.     switch ( mem [ q ] .hh.b0 ) 
  742.     {case 18 : 
  743.       switch ( rtype ) 
  744.       {case 18 : 
  745.       case 17 : 
  746.       case 19 : 
  747.       case 20 : 
  748.       case 22 : 
  749.       case 30 : 
  750.     {
  751.       mem [ q ] .hh.b0 = 16 ; 
  752.       goto lab21 ; 
  753.     } 
  754.     break ; 
  755.     default: 
  756.     ; 
  757.     break ; 
  758.       } 
  759.       break ; 
  760.     case 19 : 
  761.     case 21 : 
  762.     case 22 : 
  763.     case 31 : 
  764.       {
  765.     if ( rtype == 18 ) 
  766.     mem [ r ] .hh.b0 = 16 ; 
  767.     if ( mem [ q ] .hh.b0 == 31 ) 
  768.     goto lab80 ; 
  769.       } 
  770.       break ; 
  771.     case 30 : 
  772.       goto lab80 ; 
  773.       break ; 
  774.     case 25 : 
  775.       {
  776.     makefraction ( q ) ; 
  777.     goto lab82 ; 
  778.       } 
  779.       break ; 
  780.     case 17 : 
  781.       {
  782.     delta = makeop ( q ) ; 
  783.     if ( mem [ q ] .hh.b1 == 1 ) 
  784.     goto lab82 ; 
  785.       } 
  786.       break ; 
  787.     case 16 : 
  788.       makeord ( q ) ; 
  789.       break ; 
  790.     case 20 : 
  791.     case 23 : 
  792.       ; 
  793.       break ; 
  794.     case 24 : 
  795.       makeradical ( q ) ; 
  796.       break ; 
  797.     case 27 : 
  798.       makeover ( q ) ; 
  799.       break ; 
  800.     case 26 : 
  801.       makeunder ( q ) ; 
  802.       break ; 
  803.     case 28 : 
  804.       makemathaccent ( q ) ; 
  805.       break ; 
  806.     case 29 : 
  807.       makevcenter ( q ) ; 
  808.       break ; 
  809.     case 14 : 
  810.       {
  811.     curstyle = mem [ q ] .hh.b1 ; 
  812.     {
  813.       if ( curstyle < 4 ) 
  814.       cursize = 0 ; 
  815.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  816.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] 
  817.       .hh .v.RH ] ] .cint , 18 ) ; 
  818.     } 
  819.     goto lab81 ; 
  820.       } 
  821.       break ; 
  822.     case 15 : 
  823.       {
  824.     switch ( curstyle / 2 ) 
  825.     {case 0 : 
  826.       {
  827.         p = mem [ q + 1 ] .hh .v.LH ; 
  828.         mem [ q + 1 ] .hh .v.LH = 0 ; 
  829.       } 
  830.       break ; 
  831.     case 1 : 
  832.       {
  833.         p = mem [ q + 1 ] .hh .v.RH ; 
  834.         mem [ q + 1 ] .hh .v.RH = 0 ; 
  835.       } 
  836.       break ; 
  837.     case 2 : 
  838.       {
  839.         p = mem [ q + 2 ] .hh .v.LH ; 
  840.         mem [ q + 2 ] .hh .v.LH = 0 ; 
  841.       } 
  842.       break ; 
  843.     case 3 : 
  844.       {
  845.         p = mem [ q + 2 ] .hh .v.RH ; 
  846.         mem [ q + 2 ] .hh .v.RH = 0 ; 
  847.       } 
  848.       break ; 
  849.     } 
  850.     flushnodelist ( mem [ q + 1 ] .hh .v.LH ) ; 
  851.     flushnodelist ( mem [ q + 1 ] .hh .v.RH ) ; 
  852.     flushnodelist ( mem [ q + 2 ] .hh .v.LH ) ; 
  853.     flushnodelist ( mem [ q + 2 ] .hh .v.RH ) ; 
  854.     mem [ q ] .hh.b0 = 14 ; 
  855.     mem [ q ] .hh.b1 = curstyle ; 
  856.     mem [ q + 1 ] .cint = 0 ; 
  857.     mem [ q + 2 ] .cint = 0 ; 
  858.     if ( p != 0 ) 
  859.     {
  860.       z = mem [ q ] .hh .v.RH ; 
  861.       mem [ q ] .hh .v.RH = p ; 
  862.       while ( mem [ p ] .hh .v.RH != 0 ) p = mem [ p ] .hh .v.RH ; 
  863.       mem [ p ] .hh .v.RH = z ; 
  864.     } 
  865.     goto lab81 ; 
  866.       } 
  867.       break ; 
  868.     case 3 : 
  869.     case 4 : 
  870.     case 5 : 
  871.     case 8 : 
  872.     case 12 : 
  873.     case 7 : 
  874.       goto lab81 ; 
  875.       break ; 
  876.     case 2 : 
  877.       {
  878.     if ( mem [ q + 3 ] .cint > maxh ) 
  879.     maxh = mem [ q + 3 ] .cint ; 
  880.     if ( mem [ q + 2 ] .cint > maxd ) 
  881.     maxd = mem [ q + 2 ] .cint ; 
  882.     goto lab81 ; 
  883.       } 
  884.       break ; 
  885.     case 10 : 
  886.       {
  887.     if ( mem [ q ] .hh.b1 == 99 ) 
  888.     {
  889.       x = mem [ q + 1 ] .hh .v.LH ; 
  890.       y = mathglue ( x , curmu ) ; 
  891.       deleteglueref ( x ) ; 
  892.       mem [ q + 1 ] .hh .v.LH = y ; 
  893.       mem [ q ] .hh.b1 = 0 ; 
  894.     } 
  895.     else if ( ( cursize != 0 ) && ( mem [ q ] .hh.b1 == 98 ) ) 
  896.     {
  897.       p = mem [ q ] .hh .v.RH ; 
  898.       if ( p != 0 ) 
  899.       if ( ( mem [ p ] .hh.b0 == 10 ) || ( mem [ p ] .hh.b0 == 11 ) ) 
  900.       {
  901.         mem [ q ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  902.         mem [ p ] .hh .v.RH = 0 ; 
  903.         flushnodelist ( p ) ; 
  904.       } 
  905.     } 
  906.     goto lab81 ; 
  907.       } 
  908.       break ; 
  909.     case 11 : 
  910.       {
  911.     mathkern ( q , curmu ) ; 
  912.     goto lab81 ; 
  913.       } 
  914.       break ; 
  915.       default: 
  916.       confusion ( 882 ) ; 
  917.       break ; 
  918.     } 
  919.     switch ( mem [ q + 1 ] .hh .v.RH ) 
  920.     {case 1 : 
  921.     case 4 : 
  922.       {
  923.     fetch ( q + 1 ) ; 
  924.     if ( ( curi .b0 > 0 ) ) 
  925.     {
  926.       delta = fontinfo [ italicbase [ curf ] + ( curi .b2 ) / 4 ] .cint ; 
  927.       p = newcharacter ( curf , curc ) ; 
  928.       if ( ( mem [ q + 1 ] .hh .v.RH == 4 ) && ( fontinfo [ 2 + parambase 
  929.       [ curf ] ] .cint != 0 ) ) 
  930.       delta = 0 ; 
  931.       if ( ( mem [ q + 3 ] .hh .v.RH == 0 ) && ( delta != 0 ) ) 
  932.       {
  933.         mem [ p ] .hh .v.RH = newkern ( delta ) ; 
  934.         delta = 0 ; 
  935.       } 
  936.     } 
  937.     else p = 0 ; 
  938.       } 
  939.       break ; 
  940.     case 0 : 
  941.       p = 0 ; 
  942.       break ; 
  943.     case 2 : 
  944.       p = mem [ q + 1 ] .hh .v.LH ; 
  945.       break ; 
  946.     case 3 : 
  947.       {
  948.     curmlist = mem [ q + 1 ] .hh .v.LH ; 
  949.     savestyle = curstyle ; 
  950.     mlistpenalties = false ; 
  951.     mlisttohlist () ; 
  952.     curstyle = savestyle ; 
  953.     {
  954.       if ( curstyle < 4 ) 
  955.       cursize = 0 ; 
  956.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  957.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] 
  958.       .hh .v.RH ] ] .cint , 18 ) ; 
  959.     } 
  960.     p = hpack ( mem [ memtop - 3 ] .hh .v.RH , 0 , 1 ) ; 
  961.       } 
  962.       break ; 
  963.       default: 
  964.       confusion ( 883 ) ; 
  965.       break ; 
  966.     } 
  967.     mem [ q + 1 ] .cint = p ; 
  968.     if ( ( mem [ q + 3 ] .hh .v.RH == 0 ) && ( mem [ q + 2 ] .hh .v.RH == 0 ) 
  969.     ) 
  970.     goto lab82 ; 
  971.     makescripts ( q , delta ) ; 
  972.     lab82: z = hpack ( mem [ q + 1 ] .cint , 0 , 1 ) ; 
  973.     if ( mem [ z + 3 ] .cint > maxh ) 
  974.     maxh = mem [ z + 3 ] .cint ; 
  975.     if ( mem [ z + 2 ] .cint > maxd ) 
  976.     maxd = mem [ z + 2 ] .cint ; 
  977.     freenode ( z , 7 ) ; 
  978.     lab80: r = q ; 
  979.     rtype = mem [ r ] .hh.b0 ; 
  980.     lab81: q = mem [ q ] .hh .v.RH ; 
  981.   } 
  982.   if ( rtype == 18 ) 
  983.   mem [ r ] .hh.b0 = 16 ; 
  984.   p = memtop - 3 ; 
  985.   mem [ p ] .hh .v.RH = 0 ; 
  986.   q = mlist ; 
  987.   rtype = 0 ; 
  988.   curstyle = style ; 
  989.   {
  990.     if ( curstyle < 4 ) 
  991.     cursize = 0 ; 
  992.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  993.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] .hh 
  994.     .v.RH ] ] .cint , 18 ) ; 
  995.   } 
  996.   while ( q != 0 ) {
  997.       
  998.     t = 16 ; 
  999.     s = 4 ; 
  1000.     pen = 10000 ; 
  1001.     switch ( mem [ q ] .hh.b0 ) 
  1002.     {case 17 : 
  1003.     case 20 : 
  1004.     case 21 : 
  1005.     case 22 : 
  1006.     case 23 : 
  1007.       t = mem [ q ] .hh.b0 ; 
  1008.       break ; 
  1009.     case 18 : 
  1010.       {
  1011.     t = 18 ; 
  1012.     pen = eqtb [ 6172 ] .cint ; 
  1013.       } 
  1014.       break ; 
  1015.     case 19 : 
  1016.       {
  1017.     t = 19 ; 
  1018.     pen = eqtb [ 6173 ] .cint ; 
  1019.       } 
  1020.       break ; 
  1021.     case 16 : 
  1022.     case 29 : 
  1023.     case 27 : 
  1024.     case 26 : 
  1025.       ; 
  1026.       break ; 
  1027.     case 24 : 
  1028.       s = 5 ; 
  1029.       break ; 
  1030.     case 28 : 
  1031.       s = 5 ; 
  1032.       break ; 
  1033.     case 25 : 
  1034.       {
  1035.     t = 23 ; 
  1036.     s = 6 ; 
  1037.       } 
  1038.       break ; 
  1039.     case 30 : 
  1040.     case 31 : 
  1041.       t = makeleftright ( q , style , maxd , maxh ) ; 
  1042.       break ; 
  1043.     case 14 : 
  1044.       {
  1045.     curstyle = mem [ q ] .hh.b1 ; 
  1046.     s = 3 ; 
  1047.     {
  1048.       if ( curstyle < 4 ) 
  1049.       cursize = 0 ; 
  1050.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  1051.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4837 + cursize ] 
  1052.       .hh .v.RH ] ] .cint , 18 ) ; 
  1053.     } 
  1054.     goto lab83 ; 
  1055.       } 
  1056.       break ; 
  1057.     case 8 : 
  1058.     case 12 : 
  1059.     case 2 : 
  1060.     case 7 : 
  1061.     case 5 : 
  1062.     case 3 : 
  1063.     case 4 : 
  1064.     case 10 : 
  1065.     case 11 : 
  1066.       {
  1067.     mem [ p ] .hh .v.RH = q ; 
  1068.     p = q ; 
  1069.     q = mem [ q ] .hh .v.RH ; 
  1070.     mem [ p ] .hh .v.RH = 0 ; 
  1071.     goto lab30 ; 
  1072.       } 
  1073.       break ; 
  1074.       default: 
  1075.       confusion ( 884 ) ; 
  1076.       break ; 
  1077.     } 
  1078.     if ( rtype > 0 ) 
  1079.     {
  1080.       switch ( strpool [ rtype * 8 + t + magicoffset ] ) 
  1081.       {case 48 : 
  1082.     x = 0 ; 
  1083.     break ; 
  1084.       case 49 : 
  1085.     if ( curstyle < 4 ) 
  1086.     x = 15 ; 
  1087.     else x = 0 ; 
  1088.     break ; 
  1089.       case 50 : 
  1090.     x = 15 ; 
  1091.     break ; 
  1092.       case 51 : 
  1093.     if ( curstyle < 4 ) 
  1094.     x = 16 ; 
  1095.     else x = 0 ; 
  1096.     break ; 
  1097.       case 52 : 
  1098.     if ( curstyle < 4 ) 
  1099.     x = 17 ; 
  1100.     else x = 0 ; 
  1101.     break ; 
  1102.     default: 
  1103.     confusion ( 886 ) ; 
  1104.     break ; 
  1105.       } 
  1106.       if ( x != 0 ) 
  1107.       {
  1108.     y = mathglue ( eqtb [ 3782 + x ] .hh .v.RH , curmu ) ; 
  1109.     z = newglue ( y ) ; 
  1110.     mem [ y ] .hh .v.RH = 0 ; 
  1111.     mem [ p ] .hh .v.RH = z ; 
  1112.     p = z ; 
  1113.     mem [ z ] .hh.b1 = x + 1 ; 
  1114.       } 
  1115.     } 
  1116.     if ( mem [ q + 1 ] .cint != 0 ) 
  1117.     {
  1118.       mem [ p ] .hh .v.RH = mem [ q + 1 ] .cint ; 
  1119.       do {
  1120.       p = mem [ p ] .hh .v.RH ; 
  1121.       } while ( ! ( mem [ p ] .hh .v.RH == 0 ) ) ; 
  1122.     } 
  1123.     if ( penalties ) 
  1124.     if ( mem [ q ] .hh .v.RH != 0 ) 
  1125.     if ( pen < 10000 ) 
  1126.     {
  1127.       rtype = mem [ mem [ q ] .hh .v.RH ] .hh.b0 ; 
  1128.       if ( rtype != 12 ) 
  1129.       if ( rtype != 19 ) 
  1130.       {
  1131.     z = newpenalty ( pen ) ; 
  1132.     mem [ p ] .hh .v.RH = z ; 
  1133.     p = z ; 
  1134.       } 
  1135.     } 
  1136.     rtype = t ; 
  1137.     lab83: r = q ; 
  1138.     q = mem [ q ] .hh .v.RH ; 
  1139.     freenode ( r , s ) ; 
  1140.     lab30: ; 
  1141.   } 
  1142. } 
  1143.